home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sds.d64 / spritemaster (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  65 lines
  1. 10 REM  SPRITEMASTER HEADER-DISK VERSION
  2. 20 REM
  3. 25 IF A=0 THEN GOSUB 2000
  4. 30 IF A=0 THEN A=1:LOAD"MACH/LANG2",8,1
  5. 35 IF A=1 THEN A=2:LOAD"MAIN4.3",8,1
  6. 40 GOSUB 1000
  7. 60 SYS AD
  8. 70 N=PEEK(251)
  9. 80 A=PEEK(252):N=N+2:IF N>255THENN=N-256:A=A+1
  10. 85 POKE 253,N:POKE 254,A
  11. 90 POKE45,PEEK(253):POKE46,PEEK(254):POKE47,PEEK(253):POKE48,PEEK(254)
  12. 95 POKE 49,PEEK(253):POKE50,PEEK(254)
  13. 100 POKE 44,18:POKE 642,18:POKE18*256,0:RUN
  14. 110 NEW
  15. 120 REM
  16. 1000 AD=8*4096
  17. 1010 FOR I=0 TO 1000
  18. 1020 READ N:IF N<0 THEN 1050
  19. 1030 POKE AD+I,N
  20. 1040 NEXT
  21. 1050 RETURN
  22. 2000 S$="     [145][157] [145][157][160][145][157][160][157][157][157][157][157][160][160][160][160][157][157][157][157][145][160][145][157][160][145][157][160][160][160][160][160]"
  23. 2010 P$=" [145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][160][160][160][160][157] [157] [157] [157][157][157][157][160][160][160][160]"
  24. 2020 R$=" [145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][160][160][160][160][157] [157] [157] [157][157][157][157][160][160][160][160][157][157] [157]  [157] "
  25. 2030 I$="[160][160][160][160][160][157][157][157][145][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][157][157]     "
  26. 2040 T$=" [145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][157][157]     "
  27. 2050 E$="     [157][157][157][157][157][145][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][160][160][160][160][157][157][157][157]  "
  28. 2060 M$="[160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160] [157]    [157][157][157] [145][145] [145] [157] [157] [157] [157] [157] [157] "
  29. 2070 A$="[160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][160][145][157][160][160][160][157]  [157] [157] [157][157][157][157]    [157] [157] "
  30. 2080 N6$="[160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][160][160][160][160][157] [157][157][157][157]    [157] [157] [157][157][157][157]    "
  31. 2090 N4$="[145][145]    [160][157][145][160][157][145][160][157][145][160][157][145][160][157][145][160][157][145][157]  [157][157][157][157][157][160][145][160][145][160][145]"
  32. 2100 REM
  33. 2105 POKE 53280,2:POKE53281,0
  34. 2110 PRINT"[147]";
  35. 2120 POKE 646,7:PRINT  S$;
  36. 2130 POKE 646,2:PRINT  P$;
  37. 2140 POKE 646,14:PRINT R$;
  38. 2150 POKE 646,1:PRINT  I$;
  39. 2160 POKE 646,8:PRINT  T$;
  40. 2170 POKE 646,13:PRINT E$
  41. 2180 PRINT"";
  42. 2190 POKE 646,9:PRINT  M$;
  43. 2200 POKE 646,3:PRINT  A$;
  44. 2210 POKE 646,8:PRINT  S$;
  45. 2220 POKE 646,7:PRINT  T$;
  46. 2230 POKE 646,6:PRINT  E$;
  47. 2240 POKE 646,15:PRINT R$
  48. 2245 PRINT:PRINT:PRINT:PRINT:PRINT"  COPYRIGHT"; TAB(31);"PLEASE"
  49. 2246 PRINT"  1982";TAB(33);"WAIT"
  50. 2247 PRINT"  ACCESS";TAB(34);"ONE"
  51. 2248 PRINT"  SOFTWARE";TAB(31);"MINUTE"
  52. 2250 PRINTTAB(14);"[145]";
  53. 2260 POKE 646,14:PRINT N6$;N4$
  54. 2270 POKE 646,15:RETURN
  55. 15000 DATA 173,1,18,133,251
  56. 15010 DATA 173,2,18,133,252
  57. 15020 DATA 160,0,177,251,208
  58. 15030 DATA 5,200,177,251,240
  59. 15040 DATA 16,160,0,177,251
  60. 15050 DATA 170,200,177,251,133
  61. 15060 DATA 252,138,133,251,76
  62. 15070 DATA 10,128,96,-1
  63. 15080 REM                     <<
  64. 15090 REM                     <<
  65.